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Well, this month we begin with the 
second installment of D.C. Warren's 
Interrupts series. Each segment is 
even better than the one 
next month's article will 
that programmers will find 
and enlightening. 



before and 
be another 
both useful 



Interrupts 



Part 2 



by D.C. Warren 



level zero is 

For the sake of 

mention the other 

MP, which are 

pins. The first 



The interrupt interface of the 
TMS9900 MP. as discussed in the 
Sept. '86 issue of The Smart 
Programmer, has one pin to signal 
interrupts and four other pins used for 
developing sixteen interrupt vector 
levels (remember 
reserved for reset), 
completeness we must 
two pins on the 
specialized interrupt 
is the RESET pin, which executes a 
level zero reset when the system is 
turned on or a cartridge is inserted. 
The second pin is the Non-Maskable 
Interrupt <NMI or also known as the 
LOAD pin) which is used by currently 
available load interrupt buttons and 
single-step hardware. The NMI vectors 
reside at the far end of memory at 
>FFFC. These latter two interrupts 
won't be discussed anymore since they 
aren't related to the Interrupt Service 
Routine (ISR) in console ROM. 

Although the TMS9900 makes 
available fifteen of sixteen external 



interrupt levels to the system, only 
level one is implemented in the 99/4A. 

That means that the only mask 

instructions necessary to work with 

interrupts on the 4A are LIMI 1 and 

LIMI 0. This may be confusing because 

TI recommends using LIMI 2 throughout 

much of their literature when 

interrupts are needed. Also, there is 

a set of level two interrupt vectors at 

>0008 in ROM. I will only speculate 

that the recommendation to use the 

level two mask was to maintain software 

compatibility with future products 

(such as a 99/7 or 99/8. perhaps). 

Also, the level two interrupt vectors 

in ROM may be there for software to use 

if screen-blanking is desired without 

having to enable interrupts (by using 

BLWP 9>0008). It will be clear later 

that this is one of the functions of 

the level one and two routines. 

The single interrupt implemented 
in the 4A is attached to the TMS9901 
Programmable Systems Interface chip. 
This IC performs several functions in 
the 4A but the function of interest to 
us is the interrupt interface section. 
The Video Display Processor (VDP) 
interrupt and the peripheral interrupts 
are both attached to the 9901. Also. 
The 9901 has an internal timer which 
can cause an interrupt. When any one 
of these three items cause an interrupt 
in the 9901. the 9901 in turn signals a 
level one interrupt to the 9900 mP- It 
is then the duty of the ISR in console 
ROM to interrogate the 9901 in order to 
find out if the timer, VDP or 
peripheral caused the interrupt. Once 
this Is resolved then a specific part 
of the ISR is executed. 
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Now that the hardware aspects of the interrupt interface have been 
discussed, it is time to tal<e a look at the software part (the ISR) that we've 
been talking about. The following listing is documented source code for the 
ISR. One comment is that some sections of the code are hard to follow, notably 
the Auto Sprite Motion and Auto Sound Processing. This is because little 
information from TI is available explaining just how these pieces of code 
function. A good way to understand the Sprite Motion and Sound Processing 
parts of the ISR is to set up a small program in XBASIC and watch what happens 
to Sprites and Sound with the MG EXPLORER. 



-9 



**************************** 

* ISR Source Code * 

* Commented by D.C, Warren * 
**************************** 



GPL workspace 

LSB of GPL R3 
LSB of GPL R8 

Interrupt workspace 
LSB of interrupt R12 

Sound generator port address 

VDP read data port 

VDP write data port 

VDP write address port 

Write bit mask for VDP writes 

Offset to VDP status port [eVDPSTA{R15) =>88023 

VDP interrupt timer byte 
Number of sprites in motion 
Copy of VDP status byte 
Interrupt control byte 
ISR hook 

Address of sound list 
Sound byte counter 

Sprite Motion List address in VDP 

Offset from SML to Sprite Attribute list in VDP 

Constant for checking invalid sprite positions 

PUTSTK EQU >0864 [These vary] Routine which stacks GROM address on SRAM stack 
GETSTK EQU >0842 [on other ] Routine which pops GROM address off SRAM stack 
TIMER EQU >1404 [consoles!!] 9901 timer handler within cassette routine 



GPLWS 


EQU 


>83E0 


R3LB 


EQU 


GPLWS+7 


R8LB 


EQU 


GPLWS+17 


IKTWSP 


EQU 


>83C0 


AR12LB 


EQU 


INTWSP+25 


SOUND 


EQU 


>8400 


VDPRD 


EQU 


>8800 


VDPWD 


EQU 


>8C00 


VDPWA 


EQU 


>8C02 


WRVDP 


EQU 


>4000 


VDPSTA 


EQU 


>FC00 


TIME 


EQU 


>8379 


MOTION 


EQU 


>837A 


VDP ST 


EQU 


>837B 


INTFLG 


EQU 


>83C2 


INTPTR 


EQU 


>83C4 


SNDADD 


EQU 


>83CC 


STFLGS 


EQU 


>83CE 


RSMOT 


EQU 


>0780 


QSAML 


EQU 


>e480 


VDELTA 


EQU 


>2000 



H 



H4000 
H400C 

HAA 

H00 

CI 

H20 

FNCEQ 



EQU 
EQU 

EQU 

DATA 

DATA 

DATA 

DATA 



>4000 
>400C 

$+2 

>00AA 

>0001 

>0020 

>1100 



Address of peripheral card validation byte 
Address of peripheral card interrupt 

Validation flag comparison byte 
Zero mask byte 

VDP/GROM sound processing bit mask 
Bit mask comparison byte 
Function and = key bit mask 



*s 

* 
* 
* 
* 
* 
* 



LEVEL ONE INTERRUPT SERVICE ROUTINE 

Check to see if bit 10 of GPLWS R14 is set. If so then assume interrupt 
caused by the 9901 timer. If not then check bit two of 9901 to see if 
VDP caused interrupt. If VDP did not cause interrupt then assume that a 
peripheral did. 



s. 
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REMOTE LIMI 





LWPI 


GPLWS 


CLR 


R12 


COC 


9H20,R14 


JNE 


TIMl 


B 


9TIMER 


TIMl TB 


2 


JNE 


VDPINT 



Set mask to zero for non-interrupt entries 

Load GPL workspace 

Clear CRU base to point to 9901 

Is the 9901 timer flag set? 

NO! 

YESi Branch to cassette routine area 

Did VDP cause the interrupt? 

YES! Jump to service VDP interrupt 



*=sss = = : 



* 
* 
* 

* 
* 
* 

* 
* 



PERIPHERAL INTERRUPT HANDLER 

Service all peripheral interrupt routines in CRU base range >1O00 to >1F00. 
Peripheral interrupt routines may use GPL registers Rl through R10. Reserved 
registers are used as follows: 

next interrupt routine link 

the return address for the interrupt service routine 

the CRU base of the peripheral 

the current GROM library read data address 

>01xx where xx is used by the GPL interpreter 

the VDP write address address 
Also, the allocation of memory from >834A to >836D may be split between the 
interrupt routine and the DSR. Interrupt routine returns with a B *R11. 



R0 

Rll 

R12 

R13 

R14 

R15 



contains 
contains 
contains 
contains 
contains 
contains 



ILOOP 



^ 



LOOPl 



EMERG2 



LI R12,>0F00 

SBO 1 

SBZ 

AI R12,>0100 

CI R12,>2000 

JEQ EMERG2 

SBO 

CB •H4000,9HAA 

JNE ILOOP 

MOV «H400C,R2 

JEQ ILOOP 

MOV R2,R0 

MOV »>0002(R2) ,R2 

BL *R2 

MOV *R0,R2 

JMP LOOPl 

B DEMERGE 



Initialize CRU base to start checking periphs. 

Turn 9901 external interrupt bit off 

Turn last peripheral off 

Increment CRU base to next peripheral 

Are we finished with all peripherals? 

YES! Exit interrupt service routine 

NO! Turn next peripheral on 

Do we have a validation flag here? 

NO! Look at next peripheral slot 

Grab interrupt entry list pointer 

If no Interrupt routine here then 

Save next entry pointer 

Grab interrupt entry address 

Branch to interrupt routine 

Restore next entry pointer 

Check for more interrupt routines in this card 

Exit interrupt service routine 



skip 



-I 






* 
* 

* 
* 



VDP INTERRUPT HANDLER 

Perform housekeeping on all VDP interrupt related items. These include: 
auto-sprite motion, auto-sound processing, quit key check, storage of VDP 
status byte, screen blank function and user defined ISR hook routine. The 
first three; sprites, sound and quit are controlled by an interrupt flag 
byte at >83C2. If the MSBit (bit 0) of this flag is a one then servicing 
of the above three items is skipped. Otherwise bits 1,2,3 govern whether 
or not each individual routine respectively is executed. If the bit is a 
zero then the routine is executed otherwise it is skipped and the next bit 
is checked. The remainder of the first mentioned items are within the leve 
two interrupt code and are always executed on a VDP interrupt. 



VDPINT 



SBO 

MOVB 

SLA 

JNC 

B 



«INTFLG,R1 
Rl,l 
T S TMOT 
©VSTAT 



Reset the VDP interrupt bit in 9901 

Fetch interrupt flag byte from Scratch RAM 

Check first bit 

If not set then service sound, sprites and quit 
Else update some values and check screen-blank 
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********************* ************************ ************ 
AUTO-SPRITE MOTION 

For auto-sprite motion the Sprite Motion List (SML) must always be located 
at >780 in VDP, The first and second bytes of each entry in the list 
represents the Y and X motion of the corresponding sprite. The values >00 
to >7F are the positive directions of down or right. Values >80 to >FF are 
the negative directions of up or left. The next two bytes are used 
to scale the speed of motion of the sprites. A motion value of one, for 
example, will be scaled to move the sprite one pixel every 16 VDP interrupts. 
A motion value of 16 moves the sprite one pixel every VDP interrupt, etc. 
The Sprite Attribute List (SAL) must be located at >300 in VDP, also, in 
order to use this auto*sprite motion routine. 



* 

A 

* 
* 

* 



#! 



MLOOP 



TSTMOT SLA 

JOC 
MOVE 
JEQ 
SRL 
LI 
LI 
LI 

MOVE 
MOVE 
CLR 
MOVE 
CLR 
MOVE 
SRA 
MOVE 
SRA 
A 

MOVE 
SRA 
SRA 
A 
AI 

MOVE 
MOVE 
CLR 
MOVE 
A 



Rl,l 

TSTSND 

•MOTION, Rl 2 

TSTSND 

R12,8 

R2 , VDPRD 

R3,VDPWD 

R8,RSM0T 

9R8LB,*R15 

R8,*R15 

R4 

*R2,R4 

R6 

*R2,R6 

R4,4 

*R2,R5 

R5,4 

R4,R5 

*R2,R7 

R6,4 

R7,4 

R6,R7 

R8 , -QSAML 

»R8LB,*R15 

R8,*R15 

R4 

*R2,R4 

R5,R4 



Shift 2nd bit off 

If set then skip auto-sprite motion processing 

Grab number of sprites in motion from SRAM 

If zero then go check for auto-sound processing 

Make number of sprites a word value 

Init. R2 to VDP read data address 

Init. R3 to VDP write data address 

Init. R8 to sprite motion table address in VDP 

Set VDP address to sprite motion table 

Clear out R4 

Read in delta Y byte 

Clear out R6 

Read in delta X byte 

Shift delta Y over a digit 

Read in temp. Y scaler 

Shift temp. Y scaler over a digit 

Add delta Y to temp. Y scaler 

Read in temp. X scaler 

Shift delta X over a digit 

Shift temp. X scaler over a digit 

Add delta X to temp. X scaler 

Back address up to sprite attribute 

Set VDP address to sprite attribute 

Clear out R4 again 

Read in present Y location 

Add motion to Y location 



f 



list 

list 



* + 




The following segment was added to fix a 
rolled off the screen (values >C0 to >E0 are 
It was removed from consoles dated 03/16/81 
dated 07/29/81. 



+++++ 
ite flicker problem as sprites 

invalid vertical positions) . 
and reinstalled in consoles 



CI R4 , 6*VDELTA+255 

JLE ONSCRN 

CI R4,7*VDELTA 

JH ONSCRN 

MOV R5 , R5 

JGT $+6 >>>>>>>>>>! 

AI R4,6*VDELTA I 

AI R4,VDELTA <<<<! 



Is vertical 
NO! So skip 
Is vertical 
NO! So skip 
Is vertical 



position greater than >C0? 

rest of checks 

position less than >E0? 

rest of segment 

motion negative? 
NO! So don't add VDELTA*7 to position 
Bump negative value past forbidden values 
Bump positive value past forbidden values 

+++++++++++++++++ 




ONSCRN CLR R6 

MOVE *R2,R6 



Clear out R6 again 

Read in present X location 



i 
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A 


R7,R6 


OR I 


R8,WRVDP 


MOVB 


@R8LB, *R15 


MOVB 


R8,*R15 


MOVB 


R4,*R3 


AI 


RS,QSAML+2 


MOVB 


R6,*R3 


SWPB 


R5 


MOVB 


9R8LB.*R15 


MOVB 


R8,*R15 


SRL 


R5,4 


MOVB 


R5,*R3 


SWPB 


R7 


SRL 


R7,4 


MOVB 


R7,*R3 


AI 


R8,>C002 


DEC 


R12 


JGT 


MLOOP 



Add motion to X location 

Set MSBit of sprite attribute list address 

Set VDP address for a write to the 

sprite attribute list area 
Install new Y location 

Reset address to sprite motion list plus two 

Install new X location 

Move LSB of temp. Y scaler to MSB 

Set VDP address to temp. Y scaler location 

in sprite motion table 
Adjust temp. Y scaler value 
Update temp. Y scaler in VDP 
Move LSB of temp. X scaler to MSB 
Adjust temp. X scaler value 
Update temp. X scaler in VDP 
Set to sprite motion list and strip write 
Decrement the number of sprites in motion 
Continue until all sprites are serviced 



bit 
count 



5th 1 



FORTH 



by Mariusz Stanczak 



This month we have lots of FORTH code for you. There is the continuing 
saga of PSEUD083 (see Listing. Part 2. lines 99-181). and then an implementation 
of one of many run-time overlay techniques. The latter set of words that 
comprise MODULE require some explanation, but I'll try to be brief. Instead of 
repeating what you can find in other places (see references), let's go over the 
glossary of words that make up the solution presented here with emphasis on the 
MODULE lexicon words. But. first, the introductory material. 

Being a system extension utility. MODULE relies on the structure of the 
system dictionary. Here, we need to know about DP (dictionary pointer), 
LATEST. LFA (link field address), NFA (name field address), and some concepts 
employed in implementation of VOCABULARY. 

The value stored in DP tells the outer Interpreter. INTERPRET, the next 
free memory cell for a new dictionary entry. By modifying this value, we can 
tell INTERPRET to compile definitions at any arbitrarily chosen address. The 
word LATEST leaves on the PS the address of location which points to the NFA of 
the topmost word in the current vocabulary. LFA converts PFA (parameter field 
address) of a word into its LFA. LFA chains each word in the dictionary to a 
word below, it points to NFA of the preceding word. OK! That was all simple, 
and most of you knew it already. Now. the vocabularies. There aren't many 
sources that undertake the task of explaining the full scope of the concept. 
and the most thorough treatment (that I found) of vocabularies In FORTH was in 
^Q^TH — Encyclopedia. In general terms, the word VOCABULARY is FORTH's way 
of implementing a multi-dimensional dictionary structure. In FIG-FORTH, one 
vocabulary (parent) may contain another (its child), which in turn may contain 
its own children vocabularies. The word VOCABULARY is a defining word, and new 
vocabulary roots are created by typing: 

VOCABULARY Vname 

which creates a dictionary entry. Vname. having the following structure; 



I LFA I NFA I CFA I VLF I PNF \ CLF ! 
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LFA and NFA are the same as for any other definition 

- CFA points to the run-time portion of VOCABULARY (the part that follows DOES> 

in the definition of VOCABULARY) 

- VLF (vocabulary link field) points to the last definition added to the root 
Vname. VLF is to this location to which LATEST is the pointer. 

- PNF (pseudo name field) contains >81A0, an impossible (a blank, so it can 
never be found by -FIND) but legal name. To this location points, initially, 
VLF, but as definitions are added to vocabularies, the LFA of the first word 
will point to PNF, and VLF will always point to the word added last. 

- CLF (chronological link field) points to CLE* of parent vocabulary. This 
location of the most recently created Vname root Is referenced by VOC-LINK. 

By typing Vname, the run-time part of VOCABULARY Is executed, which 
changes the few system pointers as described above and makes Vname the context 
vocabulary by also stuffing the address of VLF into CONTEXT. That means that 
only the words in Vname vocabulary, and the ones contained in vocabularies to 
which Vname was chained, will be searched by -FIND. This in effect 
limits/changes the scope of words known to the system. The word DEFINITIONS 
makes the context vocabulary current and all newly defined words will be 
appended to that vocabulary's chain of words. 

If the above sounds complicated, don't worry. None of it is really needed 

to use MODULE in your application, but If you do figure out the trick, it will 

be easier for you to understand the do's and don't's imposed on MODULE'S 
usage. 

With vocabularies, MODULE is mainly concerned with links between them, and 
to assure that this Is the only thing that should be of concern, MODULE makes 
the last word of each overlay a part of FORTH vocabulary. This bypasses the 
complicated process of properly relinking words located within an overlay that 
might belong to some other vocabulary chains, so restriction #1, and the 
only one there is, is: 

- overlay may only contain vocabularies that are fully enclosed by its physical 
boundaries. 

■•• Note - as long as a given overlay is in memory, you are free to select any 
of the vocabularies it may contain and add more definitions to it, but those 
definitions should be considered temporary, if you're in interactive mode, and 
be deleted from dictionary before the overlay they are connected to is deleted. 
There is one big unless, and that's: when the newly defined words are a part of 
your application, in which case you control when the words are executed, and 
of course if the application is sealed so your exclusive control is assured. 
End-of-note '" 

As you rightly suspect, all this fuss has to do with linking of each word 
to its predecessor through LFA and the word's association to its vocabulary 
through VLF, as well as with chronological linking of vocabularies through CLF. 
Your system is definitively in trouble if either points to something that does 
not exist. The same, of course, goes for system variables CURRENT and CONTEXT, 
but It is much less likely to happen. 

Glossary: 

TH - a tip word from Thinking FORTH . TH indexes the nth item in a word 
array. This is taken to the extreme through redefinitions of TH to ST, RD 
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and ND. 

ADR - a + redefined for linguistic clarity. 

MODULE_BUFFER - a pointer to overlay area. 

>FORTH - maizes FORTH vocabulary current and context. 

DP>MODULE_BUFPER - aims DP past the parameter array located at the beginning of 
each overlay area. 

POINTER® and POINTER! - words that fetch and store values from the parameter 
array. 

HI>LO - aims DP into overlay area, preserving nfa of last word in FORTH 
vocabulary residing in high memory along with vocabulary link pointer. 

MODULE_LOAD - brings the saved code into overlay area from disk and restores 
vocabulary and dictionary links. It is, basically, a simplified BLOAD. but 
it does not have any error checking built in so watch out; the correct 
floppy had best be in the correct drive!!! "• A NOTE - for any serious 
application it is highly recommended to include extensive error checking 
especially in view of the many ways one can refer to the location of a 
screen on a disk. - END OF NOTE 



• ■ * 



MODULE_LINK: - a defining word used to create an overlay loading word. 

LO>HI - preserves the new DP in low memory and vocabulary link pointer 
Restores the old dictionary* pointer value into DP and builds the overlay 
loading word. 

MODULE - the main word of the overlay utility. At the same time, it is the one 
of the two words that constitute this utility's lexicon (the other one is 
SAVE_MODULE). MODULE automates the process of creating an overlay it 
needs on PS a list of screen numbers, which are to be included in' an 
overlay, and it has to be followed by an inline word. This word will be 
the overlay's name, and by this name the overlay will be called into 
memory from disk. "• a TIP - before using MODULE type SPI to clear PS 
and then put on PS the screen numbers. 

DICTIONARY_RELINK - patches Ifa of module_name to point to old_latest. 

VOCABULARY_RELINK - restores the content of VOC-LINK variable to its value 
prior to creation of an overlay. 

SAVE_MODULE - this word wraps up the process of creation of an overlay. It 
preserves the last few bits of information about the state of environment, 
writes the overlay to disk, and forgets it. From this point on you will 
use moduIe_name to bring the needed code back to memory for further use 



lac 



The overlay techniques had been used extensively on early c 
ked large internal memory space, for program segmentation. 



omputers, which 
gmentation. Even today, in 



the era of mega everything (not the case with our 99/4A's), as the complexity 
of software rises along with its hunger for memory, program segmentation still 
gets a fair share of use (Just take the UNIX and VMS. or any other virtual 
memory operating system). The IWODULE utility was written mainly as an exercise 
in that idea; although, I found one use for it. that by far exceeded the 
usefulness of the original purpose in the interactive environment of Forth. As 
a matter of fact. I have built my whole system around this side benefit. I've 
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segmented all of FORTH outside of the resident portion into logical chunks of 
code, and swap a given utility set in and out as needed without disturbing the 
high memory portion of the dictionary with my efforts "in progress". Very 
useful during development, when things are far from being concrete and need a 
lot of patching or redoing, which I can do without wiping out any of the loaded 
"helpers" that are located out of the way. in low memory. As for its intended 
purpose, most of program code can be segmented, leaving the high memory space 
for data structures and for global to each segment entities. Have fun. and 
good words to you. 



f 



References: 

FORTH Encyclopedia . Mitch Dericlc and Linda Baiter, MVP, Inc., 1982. 

FORTH Dimensions, Volume V. number 3, page 5, "FiG-FORTH Vocabulary 
Structure", by Evan Rosen 
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Note for TI- FORTH users - prior to using this utility on your system, the 
system has to be reconfigured to make room for overlays. There are total of 
five buffers in the system. The minimum number of buffers on the system, 
without disturbing its proper functioning, is two, so up to three buffers can 
be taken away from the system for the overlay area; unless, you are keeping 
messages memory resident, in which case only two buffers can be had (message 
takes one). The following reconfiguration words have to be executed only once 
upon booting the system up, so, preferably, they should be located on screen 
number 3. 



: BUF- ( n adr ) 

EMPTY-BUFFERS B/BUF 4 

3 BUF- CONSTANT MODULE^BUF 

End of note •" 



LIMITS @ SWAP - DUP LIMITS ! 



# 



• a 



Note for Wycove-FORTH users - There is about 2.5K bytes free starting at 
>2000 so if you reconfigure your system down to two buffers (using CONFIG 
word), you get a healthy amount of space for MODULE_BUF. Define this constant 
to have the value of >2000. - End of note 



■ ■ ■ 



« ■ B 



Note for both systems - Make sure that the overlay code you 
does not exceed the size of the buffer made for it by ioading 
screens to high memory first, and checking the value left on PS by 
and after the compilation, - End of note 



are creating 
the wanted 
HERE before 
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Listing, Part 1 



1. : DEPTH { n ) 

2. SO « SP« - 2- 2 / ; 

3. : TH ( n n ) 

4. 2*2-; 

5. : ST TH ; : RD TH ; 

6. : ADR + ; 

7. : POINTER* ( n n ) 

8. MODULE_BUF + 9 ; 

9. : POINTER! ( n n ) 

10, MODULE_BUF + ! ; 

11. : DP>MODULE BUF ( ) 



: ND 



f 
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12. MODULE_BUF 10 TH ADR DP ! , 

13. : >FORTH 

14. [COMPILE] FORTH DEFINITIONS ; 
■^ 15. : HI>LO ( <DP> ) 

16. HERE >FORTH 

17. LATEST 1 ST POINTER! 

18. VOC-LINK ® 5 TH POINTER! 

19. DP>MODULE_BUF 

20. : MODULE_LOAD ( scr# ) 

21. MODULE_BUF 

22. BEGIN 

23. >R DUP 1+ SWAP BLOCK 

24. DUP 4 TH ADR ® R - R> DUP B/ >R 

25. SWAP B/BUF MIN CMOVE 

26. R 

27. 4 TH POINTER® R> < 

28. UNTIL DROP DROP 

29. 3 RD POINTER® 2 ND POINTER® ! 

30. 7 TH POINTER® -DUP 

31. IF 

32. 6 TH POINTER® SWAP ! 

33. THEN ; 

34. : MODULE_LINK: ( ) \ followed line name 

35. > FORTH 

36. [COMPILE] : \ in Wycove's [COM (:) 

37. COMPILE OFFSET COMPILE DUP COM® 

38. COMPILE LIT HERE 9 TH POINTER! 

39. COMPILE 3 COMPILE PICK COMPILE 

40. COMPILE LIT HERE 8 TH POINTER! 

41. COMPILE MODULE_LOAD COMPILE SWAMPILE ! 
.^ 42. [COMPILE] ; \ in Wycove's [COM {;) 

W 43. ; 

44. : LO>HI ( <DP> ) 

45. HERE 4 TH POINTER! VOC-LINK ® 60INTER ! DP ! 

46. MODULE_LINK: LATEST PFA CFA DUPRD POINTER! 2 ND POINTER! 

47. : MODULE ( any_#_of _screen_#s followed by inline name 

48. HI>LO DEPTH 1 

49. DO SWAP LOAD 

50. LOOP LO>HI ; 

51. : DICTIONARY_RELINK { ) 

52. 1 ST POINTER® 2 ND POINTER! ; 

53. : VOCABULARY_RELINK ( ) 

54. 5 TH POINTER® 6 TH POINTER® OVER - 

55. IF 

56. VOC-LINK 

57. BEGIN DUP ® 3 PICK OVER - 

58. WHILE SWAP DROP 

59. REPEAT 

60. DROP SWAP DROP DUP 7 TH POINTS 

61. ELSE 

62. DROP DROP 7 TH POINTER 1 

63. THEN ; 

64. : MODULE_SAVE ( scr# scr# ) 

65. DUP 8 TH POINTER® ! OFFSET ® POINTER® ! 

66 . DICTIONARy_RELINK VOCABULARY_REL 

67 . MODULE_BUF 

68. BEGIN 

69. >R DUP 1+ SWAP OFFSET » + R UPDATE 

70. DUP B/BUF ERASE 

71. 4 TH POINTER® R - R> DUP B/B >R 
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72. 
73. 
74. 
75. 
76. 
77. 
78. 
79. 
80. 
81. 
82. 
83. 
84. 
85. 
86. 



SWAP 
R 

4 TH 
UNTIL 



>R SWAP R> B/BUF MIN CMO 

POINTER* R> < 
DROP FLUSH ; ;S 



Environment info parameter array. 



< 



1 
2 
3 
4 
5 
6 
7 
8 
9 



ST 
ND 
RD 
TH 
TH 
TH 
TH 
TH 
TH 



old_latesfs nfa (in FORTH 

module_name ' s If a 

module_name ' s <lfa> 

low memory (DP) 

old (VOC-LINK) 

new (VOC-LINK) 

of new (VOC-LINK) 

in parameter field of 

in parameter field of 



<ans the content of 
voary) 



modame^ 
modame 



Listing, Part2, PSEUD083 






' ^ 



'i 



« 

( 



99. ( 

100. \ 

101. : 

102. : 

103. : 

104. : 
105. 
106. : 
107, 
108. : 
109. 

110. : 

111. : 

112. : 

113. : 

114. : 
115. 

116, 

117. 

118. 

119. : 

120. 

121. : 

122. 

123. 

124. 

125. 

126. : 

127, 

128. 

129. 

130. 

131. 

132. 

133. 

134. ( 

135. \ 

136. \ 

137. : 
138. 

139. : 

140. : 



comparators, not, sign, etc.) \ ver 2.1 

comparators to leave tf =-1 , this screen not copyrighted 



gtjul86 



^ MINUS 
< < MINUS ; 
0< < ; 

NOT83 { n 

-1 XOR ; 

NIP ( nl n2 n2 

SWAP DROP ; 
TUCK ( nl n2 

SWAP OVER ; 
ON -1 SWAP ! ; 
OFF SWAP ! ; 
INCR 1 SWAP +! ; 
DECR -1 SWAP +! 
7EN0UGH ( n 

DEPTH 1- > IF 
SIGN83 3 7EN0UGH 

span, expect ) 

VARAIBLE83 SPAN 



0= 0= MINUS 
: U< U< MINUS ; : 
<> = 0= ; : => 1+ 
1 ) \ 1 ' s complement 



) 



> 

0> 
< 



> MINUS 
> : 



= < 1+ > 



— n2 nl n2 ) 



) \ 



It 



: INCR2 
: DECR2 
aborts if 
Not enough 
ROT SIGN ; 



2 SWAP +! ; 

-2 SWAP +! ; 
PS too shallow mapOct83 
parameters" ABORT THEN 



(SPAN) 
SPAN 

LENGTH 
82 



( 
I 

( 
DO 



cnt ) 



cnt ) 

DUP \ dup buf adr 

+ C© \ get succeeding chars 

IF I LEAVE THEN \ if null leave count 

NIP ; 

text_buf_adr n cnt ) 

?DUP \ text buf needs n+2 bytes for delimiter 
) 



= 

LOOP 

EXPECT83 ( 

2 ? ENOUGH 

IF ( n>0 

OVER >R 

EXPECT 

ELSE 

DROP ( 
THEN ; 

defer, is ) \ lines 135- not copyrighted 

modified from Will Baden, FD V.6/5, also see Laxen&Perry 's F83 

model and Mastering Forth, Anderson, et al, 1984 

DEFER ( ) 

<BUILDS 2 ALLOT DOES> 9 EXECUTE ; 

(IS) ( cfa ) R 9 >BODY ! R> 2+ >R ; 

IS ( cfa ) STATE 



\ save adr 

R> LENGTH (SPAN) 
adr ) SPAN OFF 
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141. IF COMPILE (IS) 

149. ELSE *83 >BODY ! 

143. THEN ; IMMEDIATE 

^W^ 144. ( query, doer/ntake ) 

^ 145. VARIABLE83 #TIB 

146. : QUERY83 

147. TIB ® 80 2DUP BLANKS >IN OFF 

148. EXPECT83 

149. IN OFF BLK OFF 

150. SPAN a #TIB ! ; 

151. \ DOER/MAKE L. Brodie, Thinking Forth, 1984, p279 

152. \ modified, gt 

154. : DOER 

155. <BUILDS ['] NOP >BODY , DOES> a >R ; 

156. VARIABLE83 MARKER 

157. : (MAKE) R> DUP 2+ DUP 2+ SWAP ® >BODY ! ® ?DUP IF >R THEN ; 

158 . { query , doer/make ) 

159. : MAKE STATE 

160. IF COMPILE (MAKE) HERE MAKER ! , 

161. ELSE 1 17 TERROR ABORT 

162. THEN ; IMMEDIATE 

163. : ;AND [COMPILE] ;S HERE MAKER @ i ; IMMEDIATE 

164. : UNDO ['] NOP >BODY [COMPILE] '83 >BODY ! ; 

165. ( name, save-buffers ) 

166. '83 ;S CFA CONSTANT DEF-END 

167. : NAME ( pfa ) \ displays the name of a word from any adr in 

168. \ its pfa field. a handy addition to debugging tools, as it allows 

169. \ you to id the numbers on the return stack. 

170. CR 

171. BEGIN 2- DUP ® DEF-END = 
y^ 172. UNTIL 4+ ID. ; 

173. BASE->R HEX 

174. : SAVE-BUFFERS { ) \ flush updated buffers to disk but do not 

175. \ deallocate the buffers. an 83 version 

176. LIMITS a FIRSTS 

177. DO I 9 0< 

178. IF I a 8000 - DUP 2+ SWAP R/W I ! 

179. THEN 404 

180. +LOOP ; 

181. R->BASE 



f 



r 



NEWS AND NOTES 



Chicago Faire 



The Chicago TI-Faire, held November 1, was again a big success. About 
1.000 99'ers braved the rain for an outstanding show. Users from Canada and at 
least 20 states of the U.S. were in attendance. As 30 vendors participated, a 
lady, sporting a smile, was heard to observe, "Until now, I'd only dreamed of a 
day like this. It's unbelievable, the variety of products available!". 
Indeed, products ranged from the not-yet- released to those not produced in 
years (items such as TI stand-alone products were not uncommon!). 

A bright new star of the 9 9/4 A world emerged in Chicago, J. Peter Hoddie. 
Hoddie had already received considerable acclaim in 1986 and his talents are 
quite well-known in the Boston area, where he resides, but the Chicago show is 
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he gained the respect of an inter- 
national audience. Hoddie offered two 
recent software efforts, Gram Paciter 
(Genial Computerware) and Font Writer 
(Asgard). Hoddie also gave a very 
entertaining musical presentation, 
which included a selection with a 9d/4A 
playing music while controlling music 
through another 99/4A, with the two 
linked via the cassette ports, and a 
number featuring Hoddie on the cello 
accompanied by the 99/4A on "piano". 
Hoddie also announced his participation 
In a joint venture, Genial Computer- 
ware, with Corson Wyman, another 
talented Boston-area 99'er, and Barry 
Traver, Genial's charter owner. 
Anticipated projects from Genial 
include both software and hardware, in 
addition to continuation of the firm's 
Genial TRAVelER diskazine. 

Many outstanding products and 
lectures vied for attention in Chicago. 
Among the most notable were a 99/4A 
compatible computer prototype (now 
known as the MYARC 9640) from MYARC, an 
Instantly popular program called 
Printer's Apprentice from McCann 
Software, products from both Europe and 
North America available from Ryte Data. 
Joy paint 99 from Great Lakes Software, 
and a PC- type keyboard interface from 
Rave 99. Clint Pulley provided a very 
informative talk on c99. 



Rave 99, 23 Florence Rd.. Bloomfield, 
CT 06002 



Addresses for the above vendors are: 

Genial Computerware, P.O. Box 183, 
Grafton. MA 01519, Genial TRAVelER 
address: 835 Green Valley Drive, 
Philadelphia, PA 19128. 

Asgard, POB 10306. RockviUe. MD 20850 

MYARC. Inc., P.O. Box 140, Basking 
Ridge. NJ 07920 

Clint Pulley, 3 8 Town send Avenue, 
Burlington. Ontario, Canada L7T 1Y6 

McCann Software, P.O. Box 34160, Omaha, 
NE 80134 

Ryte Data. 210 Mountain Street, 
Haliburton, Ontario, Canada K0M 1S0 

Great Lakes Software, P.O. Box 241, 
Howell, MI 48843 



Editor's Note 



Well, there's plenty in store for 
you in upcoming months! 

Next month, we'll have a really 
important announcement! We'll be 
releasing a software package that many 
of you have been asking for! 

Yes, things have slowed to a 
snail's pace with our recent peak 
renewal period and a few unexpected 
matters. Things are looking much better 
now, though. We've got some great 
material lined up for upcoming issues. 
And, we'll have" another memory map for 
you next month -- it was a bit long for 
this issue. 



RM 



Gram Packer 



Notes from Richard Mitchell 

Wow! Gram Packer (Genial 
Computerware, address above) is a 
fantastic package! Gram Packer works 
with Gram Kracker^** or Maxi-Mem or Gram 
Karte to allow you to create your own 
custom menu of programs and modules 
that you use most often. The files 
load into GRAM space. Programs must be 
Memory Image Programs (the ones that 
load from E/A Option 5, Tl-Writer 
Option 3, etc.). Using our June Gram 
Kracker'"*' tip for 16 items on a menu, 
you can really create some very 
elaborate menu schemes and also chain 
from one menu to the next, so you can 
reduce the number of filenames to 
memorize to only one! Though I've only 
just begun working with the package, 
I've already created a menu that 
Includes Turbo. Multiplan^M^ Mini 

Memory, Disk Manager II, TE II (1200 
bps), Navarone DBM, DM- 1000 3.5, 
Fast-Term 1.16rj8, Editor/Assembler 
(Regular). EA/XB (created with MG's GK 
Utilities I), TI- Writer GRAM Disk and 
Next Menu! Gram Packer allows choosing 



% 



H 



-^ 
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from as many files as you can access 
from your system's disks, including 
hard disks, RAM disks and floppies! 
Priced at only $10, Gram Packer is 
certainly a program that should be in 
the library of every GRAM device owner! 
We'll bring you more Info on Gram 
Packer in the future. 



FILE OVERLAYS 



by Richard M. Mitchell 

Files are normally useful in the 
format in which originally created. 
However, occasionally there are files 
which cannot be quickly and easily 
modified. For instance, to depict 
boxes with questionnaire responses, a 
primary file with the boxes could be 
created, followed by directing the 
responses to an overlay file, then the 
overlay file could be overlaid onto 
the primary file, as shown below. 

PRIMARY FILE: 



OVERLAY FILE 



B 



D 



RESPONSES OVERLAID ONTO PRIMARY FILE 



you find other uses for the program, 
please d/op me a note in the mail. 



100 DISPLAY AT(3,1) ERASE ALL 
:"D/V 80 Output Overlays'* : "T 
he Smart Programmer" : "1986" 
110 DISPLAY AT{8,1) : "Primary 
Filename : " : "DSKl .":"": "Over 
lay Filename : " : "DSKl .":"": "O 
utput Device Name:":"PIO" 

120 ACCEPT AT (9,1) BEEP SIZE( 

-15) :AS 

130 ACCEPT AT(12,1)BEEP SIZE 

(-15) :B$ 

140 ACCEPT AT(15,1)BEEP SIZE 

(-28) :P$ 

150 OPEN #1:A$ 

160 OPEN #2:B$ 

170 OPEN #3:P$ _ 

180 LINPUT #1:S$ 

190 IF EOF(2)=0 THEN LINPUT 

#2 ;T$ 

200 L=MIN(80,MIN(LEN(S$) ,LEN 

(T$))) 

210 FOR 1=1 TO L 

220 IF SEG$(T$,I,1)=" " THEN 

240 

230 IF I>1 THEN S$=SEG$(S$,1 

, I-l ) &SEG$ (T$ , 1 , 1 ) &SEG$ ( S$ , I 

+1,LEN(S$)-I)ELSE S$=SEG$ (T$ 

,I,1)&SEGS(SS,I+1,LEN{S$)-I) 

240 NEXT I 

250 IF LEN(T$)>LEN(S$)THEN S 

S=S$&SEG$(T$,LEN(S$)+1,LEN(T 

$)-LEN(S$) ) 

260 PRINT #3:S$ 

270 IF EOF(1)=0 

280 IF EOF(2)=0 

: GOTO 190 

290 CLOSE #1 : : 

CLOSE #3 : : END 



: : PRINT SS 
THEN 180 
THEN S$="" 

CLOSE #2 : : 



I A I IB! ! C I I D I 



:^ 



The program listed below will 
replace a character in the primary file 

with any non-space (space is ASCII 32) 
character In the overlay file. Of 

course, the output device name can be a 
disk file name, as well as a printer 
name, etc. Because there might be many 
possible variations on this theme, the 
program is one I wrote rather quickly 
as an example. The idea came from a 
request for a method of printing a 
teacher's gradebook and attendance 
sheet, output from MultiplanTM into D/V 
80 files, into a single output. If 



Q & A 



In the September, 1986, issue, you 
referred to using DISk ASSEMBLERS" to 
determine all addresses in a source 
file. Why not simply AORG the file? 

Using the AORG directive to load 
the object code at a specific address 
is an alternative method. However, 
when more than one file is to be loaded 
or various combinations of files are to 
be tested, the AORG method can become 
cumbersome. Additionally, since AORG 
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code does not update program memory 
allocations (such as XB's FFALM, the 
First Free Address In Low Memory), 
non-AORG files may be the final 
preference and one may find having both 
AORG and non-AORG files on disk 
confusing. When an option is available 
for accomplishing a task, we try to 
present the method that covers the 
widest range of possible cases. 



Could you supply the addresses of 
public domain software authors? 

No. In many instances, software 
Is released Into the public domain 
because the author has no interest in 
providing support functions, such as 
reading and answering mail. Most 
public domain software is available 
through telecommunications services and 
user groups. One of the many groups 
that makes available to its members 
many of the latest public domain 
releases for a nominal library fee is 
LA 99'ers Computer Group, P.O. Box 
3547. Gardena, CA 90247-7247. LA 
99'ers also offers many other services 
to its members, Including a monthly 
newsletter, within which new library 
acquisitions are listed. 



Is there a quick way to update a 
MultiplanTM cell while Recalc Is off? 

Yes. Because updating an entire 
spreadsheet is a very slow process, it 
is generally best, as we've covered 
before, to select Options Recalc (No) 
80 that the sheet will not update all 
of its formulae with each input. 
However, it would often be convenient 
to update a particular cell. To do so, 
simply select Edit and press enter! Of 
course, you must proceed with caution, 
as the cell may be dependent upon other 
cells that might not be updated by this 
procedure (in such a case, Recalc (Yes) 
must be selected). 



Certainly there are no easy 
answers to the piracy Issue. The 
article points up the need for the 
private sector to aggressively monitor 
Itself, before government Intervention 
results in excessive laws governing 
telecommunications. Currently, there 
is great latitude in establishing a 
telecommunications service, such as a 
BBS, and In disseminating information 
through such services, affording 
computer users an avenue for grassroots 
support for both computer- related and 
other issues. Blatant disregard of 
copyright laws by a few Individuals is 
one of many factors endandering the 
liberties enjoyed by many. 



1 



The mention of a reward In your 
article on piracy Insulted my good 
intentions. Why did you offer the 
article? 



Can you offer advice on printers? 

We receive many requests for 
specific printer information. Though 
we'd really like to help. It would be 
Impossible for us to try every possible 
combination of printers, parallel 
interfaces, serial interfaces, print 
buffers, print spoolers, software, etc. 
Essentially, printer support Is the 
function of a dealer. And, do remember 
that while a good dealer will charge 
more than a discount mail-order firm, 
the service and support available from 
the good dealer Is often the real 
long-term bargain! As a basic guideline 
for purchasing a printer, because the 
Tl Impact Printer was the early 
standard for the 99/4A and It is a 
9 -pin dot-matrix printer that uses 
Epson print codes, most 99'ers have 
purchased printers compatible with it. 
For typewriter quality print, a 
daisy-wheel printer is required, but 
such printers have practically no 
graphics capabilities. We use an NEC 
P6 to produce The Smart Programmer and 
It Is a 24-pln printer that handles 
most of the Epson print codes. The P6 
Is an excellent printer within its 
price range, often discounted at under 
$500, plus about $25 to $75 for 
unl - direct ional or bi-directional 
tractor. Printers adequate for most 
home users begin at about $200. If you 
have already purchased a printer and 
your dealer cannot or will not assist 
you, then you need to locate a user 
with a configuration similar to your 
own, with the best avenues being your 
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local user group and/or the major 
telecommunications networks. 



Roselle Park High School, 
Webster Ave., Roselle Park, NJ 



185 W. 
07204. 



What should I do to test a program 
that I want to market? 



Tl-Writer Tips 



The program should be tested 
in-house first, of course. Next, the 
program needs to be Beta tested, tested 
by individuals who have never before 
seen the package. Beta testers should 
receive proposed final versions of both 
the software package and the package's 
documentation. Beta testers should be 
individuals with unquestionable morals, 
of course. Also, at least some of the 
Beta testers should assume the role of 
a typical customer and not have easy 
phone access to the author. Beta 
testing should be done by "Joe Bright" 
and "Joe Dim". Most folks who go the 
Beta test route seek Joe Bright; he's 
the guy with an incredible IQ, he's 
completely computer literate and an 
English grammar whiz — he can tell 
nearly everything a package does that 
it shouldn't and nearly everything It 
doesn't that it should. Unfortunately, 
few firms employ the services of Joe 
Dim, who is somewhat of a dim-wit when 
it comes to computers. If Joe Dim can 
run the package properly, though, 
anyone can! If the program is updated, 
subsequent rounds of Beta testing would 
be advisable, with at least some new 
testers selected In each round. If the 
program is based on a useful Idea and 
Joe Bright and Joe Dim approve the 
package, then with a good marketing 
strategy the program should become a 
sales success. It usually takes a few 
trials before a firm recognizes the 
benefits of Beta testing and learns the 
best Beta test procedures, but most 
eventually get around to it (or fail)! 



SHOW SCHEDULE 



Fest-West '87, May 1 
contact LA 99'ers, P 
Gardena, CA 90247-7247. 



and 2, 1987 
O. Box 3547 



Texas Instruments Computer Owners' Fun 
Fest (TICOFF '87), March 28. 1987, 
contact TICOFF '87, c/o Bob Guellnitz. 



by Richard M. Mitchell 

In using TI -Writer, there are 
several simple but often overlooked 
ways to save keystrokes. And, of 
course, saving keystrokes means saving time! 

Except as noted below, all of the 

commands of Tl-Writer can be accessed 

^directly. For instance, to use LF 

(Load File), it Is not necessary to use 

the F (File) command first. 

L (Lines) , F (Files) and SH 
(SearcH) serve no function and simply 
provide a list of Command options. 

Q (Quit) also serves no direct 
function, but offers access to three 
options, S (Save file), P (Purge) and E 
(Exit). Q Is rather peculiar in that 
the only unique acronym following use 
of Q is P (Purge). S (Save file) is 
otherwise used as S (Show Line) and E 
(Exit) is otherwise used as E (Edit). 
Use of unique acronyms would have been 
less confusing, but that's not the way 
it works. 

A tip that is more easily 
overlooked Is that using LF (Load File) 
without line parameters automatically 
purges the current document. So, P 
(Purge) is generally not necessary 
before using LF. 



Special Offer 

We have located a limited number 
of new Tl-Writer packages. The price 
is $2 0.00, C.O.D., U.S. only. The 
price includes all fees, etc. To 
obtain one, send a self-addressed 
stamped postcard (so you can be 
notified if quantities aren't adequate 
to fill your order). Due to the 
limited supply, do not send any money! 
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